// void, Obj this, Obj To
Settlement sett;
Building me;
Building it;

me = .AsBuilding();
it = To.AsBuilding();

sett = .AsBuilding().settlement;

if(me.player == it.player || DiplGetShareSupport(me.player, it.player)){

	EnvWriteString(sett, "tribute_food", "on");
	EnvWriteString(sett, "stoptribute_food", "off");

	EnvWriteString(sett, "tribute_gold", "on");
	EnvWriteString(sett, "stoptribute_gold", "off");

	EnvWriteString(sett, "tribute_people", "on");
	EnvWriteString(sett, "stoptribute_people", "off");

	EnvWriteString(sett, "tribute_food_target", To.AsBuilding().name);
	EnvWriteString(sett, "tribute_gold_target", To.AsBuilding().name);
	EnvWriteString(sett, "tribute_people_target", To.AsBuilding().name);

	sett.StartSupplyFood(To.AsBuilding().settlement);
	
	UserNotification("tribute food", "", it.pos, me.player);
	UserNotification("tribute gold", "", it.pos, me.player);
	UserNotification("tribute people", "", it.pos, me.player);

}
